Шаг 131 - Делаем заставку приложения.

Использование функции Main позволяет сделать заставку приложения. Загрузка формы может продолжаться довольно долго, это связанно может быть с установкой соединения с сервером например. В этот момент на экране лучше держать форму которая покажет пользователю что приложение грузиться. Создаем еще одну формы. Давайте выберем готовую настроенную, что бы не лазить по настройкам.

131_1.gif (4319 b)

Она добавить в проект. Теперь в момент запуска нужно показать заставку, а в этот момент пусть себе основная форма спокойно грузиться.

Public Sub Main()
frmSplash.Show
 frmSplash.Refresh
Load Form1
Unload frmSplash
Form1.Show
End Sub

В самом конце удаляем заставку и показываем форму. В загрузку формы лучше включить цикл для того, что бы увидеть заставку.

Private Sub Form_Load()
For x = 1 To 10000000
Next x
End Sub

Еще нагляднее добавить индикатор.

131_2.gif (6886 b)

И изменять его по ходу загрузки.

Private Sub Form_Load()
For x = 1 To 10000
frmSplash.ProgressBar1.Value = x
Next x
End Sub
Hosted by uCoz